Thomas J. Pavela 



1/40 



100 



102 



104 



PROCESSOR 







> 




GUI 




>- 







122 
118B 



z: 



106 




r 



130 



MEMORY 

^108 


110 




OS 




APPLICATION 
PROGRAM 










GUI 
MODULE 




COMPILER 






"^-112 



120 



7 



132A 



□□□□ 

□ □DO 
□□□□ 
□□□□ 

□ □□□ 

□ □□□ 
□□□□ 
□□□□ 
□□□□ 

□ □□□, 



V132B 




132C 



us: 



124 



14 



116 



FIG. 1 



Thomas J. Pavela 



2/40 



f BEGIN \ 



DEFINE A SOURCE FILE HAVING 
A PLURALITY OF TAGS, EACH TAG 
ASSOCIATED WITH A MEMBER 
OF A LIBRARY OF EXECUTABLE CODE 
FOR PERFORMING A PORTION OF 
AN AUTOMATIC TEST PROCEDURE 



GENERATE A SCRIPTED TEST PLAN 
IN A CONVERSATIONAL LANGUAGE 
FROM THE SOURCE FILE 



I 



GENERATE AN AUTOMATED 
TEST CODE FOR THE AUTOMATED 
TEST PROCEDURE FROM THE 
SOURCE FILE 



Q END ^ 
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302 



:H3.SMQA0 1 -9 1 1MS/CQS, non-response mode trans 
:hppartctc='SMQA01 -9' 

************************************************************* 

402 ^ :fl4 objectives 

404 ~^:p.The purpose of the test is entered here. 
406 -^.Scenario 
"^:ol compact. 
4 ^0 ""NILThe test scenario is entered here 
412 -^-eol. 
4 ^ 4 "^:h4Procedure 
416 "^:ol compact 
41 8 " ^rliJnsert IT2 procedures here 
:eol. 

:h4. Verification 
424 ^ :o | compact. 
426 ^:li.Testcase is self-verifying. 
4 28 -N^eol. 

4 ^0 ~^;h4.System Configuration 
4 ^ 2 ~^:ol compact. 

4 ^ 4 "^:li.This test case uses configuration_. 
436 -^-eol. 

438 ^v : h4.Parts used by Test Case 
440 ~>:insert parts usedby Test Case 
44 2 ~^:hpauthor aname= Insert author name 



420 
422 
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500 



504X 



:H3.SMQA0 1 -9 1 1MS/CQS, non-response mode trans 
:hppartctc= , SMQA01 -9 1 

:h4.0bjectives 

f :p.The purpose of the test is to validate that transactions can be processed 
502 X on the Shared Message Queue. This test case will queue up non-response 
[mode transactions on the queue and process them. 

:h4.Scenario 

:ol compact. 

"rlLStart up a 1-way SYSPLEX with 1 Coupling Facility 
:li. Initialize the RECONS and Load the DA Data Base share level 3 
:li.Start IRLM 2.1 
LCold start 1 IMS/CQS. 

:li. Submit 1000 non-response mode transactions 
:li. Start application program 

:li. Submit another 500 non-response mode transactions 

jli.Shutdown IMS after work is processed 
:eol. 

:h4.Procedure 
:ol compact. 

:li.lnsert IT2 procedures here 
:eol. 

:h4.Verification 
:oI compact. 

:li.Testcase is self-verifying. 
:eol. 

:h4.System Configuration 
:ol compact. 

:li.This test case uses configuration 30. 
:eol. 

:h4Parts used by Test Case 
:hppartp 

:hpauthor aname= Tom Pavela' 
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:H3.SMQA0 1 -9 1 IMS/CQS, non-response mode trans 
:hppartctc='SMQA01-9' 



:h4.0bjectives 

;p.The purpose of this test is to validate that transactions can be processed 
on the Shared Message Queue. This test case will queue up non-response 
mode transactions on the queue and process them. 

:h4.Scenario 

:ol compact. 

:li.Start up a 1-way SYSPLEX with 1 Coupling Facility 

:li.lnitialize the RECONS and Load the DJK Data Base share level 3 

:li.Start IRLM 2.1 

:il,Cold start 1 1MS/CQS. 

:li.Submit 1000 non-response mode transactions 

:li.Start application program 

:li.Submit another 500 non-response mode transactions 

:li.Shutdown IMS after work is processed 
:eol. 

:h4.Procedure 
:ol compact. 

602A -n;HPENTRY CONFIG=30^~ 6028 
604A-n :HPLO AD DB=UJK' SHRL=3 ^ 6048 
606A^ :HPSRLM2 ON=ALL -606B 
608A ^ ;|MSSTART ON=ALL DB-DJK' RE=NRE " 6088 

CFNAMES1 = , CFNAMES I CFIRLM=LT01 ,CFVSAM= CFOSAM=OSAMSESXI' 
610A ^;TMSCNTI ON=ALL NTRANS=1000 ^ 610B 
612A ^ ;TMSCNTI ON=ALL NTRANS=500 -r 61 2B 
614A^ :tMSST0P 0N=ALL^614B 

616A-n :HPEX |t -616B 
:eol. 

:h4.Verification 
:ol compact. 

:li.Testcase is self-verifying. 
:eol. 

:h4.System Configuration 
:ul compact. 

:li.This test case uses configuraton 30. 
:eul. 

:h4.Parts used by Test Case 

:hppartp C\r* R 

:hpauthor aname= Tom Pavela 1 rlO. D 
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SMQAO 1 -9 1 IMS/CQS, NON-RESPONSE MODE TRANS 
Objectives 

The purpose of this test is to validate that transactions can be processed on the Shared Message Queue. 
This test case will queue up non-response mode transactions on the queue and process them. 
Scenario ' ' 

1 . Start up a 1 -way SYSPLEX with 1 Coupling Facility 

2. Initialize the RECONS and Load the DJK Data Base share level 3 

3. Start IRLM 2.1 

4. Cold start 1 1MS/CQS. 

5. Submit 1000 non-response mode transactions 

6. Start application program 

7. Submit another 500 non-response mode transactions 

8. Shutdown IMS after work is processed 
Procedure 

1. Call Hpcs_entry using configuration 30 and ARM= NO and ARCDEFLT= YES and RECVTAM= YES 

2. Call Hpcs_load_databases which will: 

a. Define the shared RECON data sets 

b. Run the load database job(s) to load database(s) DJK and register the data bases as share level -3 

3. Call Hpcs_Start_IRLMs_21 which will: 

a. Start IRLM 2.1 on all CECS with a lock structure of LT01 

4. Call Start_IMS_on_all_systems which will: 

a. Run HPC$SPEC MODEL to update the VSPEC member on all CECs with 
(CFNAMES,CFIRLM=LT01,CFVSAM=,CFOSAM=OSAMSESXI) 

b. Run IMS%CSA% MVSPROC to bring up IMS TM/DB region on all CECs with CQS using VCATSHR. 

c. After DFS81 OA message is displayed, issue 7NRECHKPT0 FORMAT ALL." Wait for cold start to 



complete. 



1) 
2) 
3) 
4) 



Issue IMS command "/STOP DB DBHDOJ01" 

Issue IMS command "/STOP DB DBHDOK01" 

Issue IMS command "/START DB DBHDOJ01 ACCESS=UP" 

Issue IMS command "/START DB DBHDOK01 ACCESS=UP" 
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. 5. Call StarLTransaction_ScenarioJ which will: 

a. Submit 1000 non-response mode transactions (HPCSTCL1) on all CECs 

b. Issue the IMS / START PROGRAM HPC$M$00 command on all CECs 

c. Wait for all Scenario 1 transactions to be processed, then verify the transaction counter is correct. 

6. Call Start_Transaction_Scenario_ 1 which will: 

a. Submit 500 non-response mode transactions (HPCSTCL1) on all CECs 

b. Issue the IMS /START PROGRAM HPC$M$00 command on all CECs 

c. Wait for all Scenario 1 transactions to be processed, then verify the transaction counter is correct. 

7. Call Stop.allJMSs which will: 

a. Issue a 7CHE FREEZE" to bring down the IMS control region on all CECs 

b. When IMS control region on all CECs completes, verify all condition codes to be zero. 

c. In Shared Queues configurations when COS region on all CECs completes, verify all condition codes 



8. Call HpcsJExit routine 
Verification 

1 . Testcase is self-verifying. 
System Configuration 

o This test case uses configuration 30. 
Parts used by Test Case 

CFCPLOAD PROCEDURE 

RCN%CSA% PROCEDURE 

HPCSL05 MODEL 

LOADDJK PROCEDURE 

IRLME2N PROCEDURE 

HPC$SPEC MODEL 

IMS%CSA% PROCEDURE 

SMQ$C19X MVSPROC 

SMQ$BMPJCL 
* HPC$TPNS MODEL 

HPC$MPP MODEL 

HPC$JOB EXEC 
Author. Tom Pavela 



to be zero. 
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( 
( 

/*SMQA0 1-9 1 IMS/CQS, non-response mode trans *, 

, 

r *< 

I* Objectives * 

r 

r The purpose of this test is to validate that transactions can be * 

I* processed on the Shared Message Queue. This test case will queue *< 

I* up non-response mode transactions on the queue and process them. *< 

r 

I* Scenario ■ ■ * 
/* 

/* Start up a 1-way SYSPLEX with 1 Coupling Facility * 
/* 

/* Initialize the RECONS and Load the DJK Data Base share level *< 

r 3 *i 
r 

r Start IRLM 2.1 

/* *< 

r Cold start 1 IMS/CQS. *j 

r *i 

I* Submit 1 000 non-response mode transactions *i 

/* ■ \ 

I* Start application program *i 

r v 

/* Submit another 500 non-response mode transactions *i 

r *i 

/* Shutdown IMS after work is processed *' 
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^•******************»*********************************************************************** */ 

/* This TC requires that an EC machine be ipled and executing in a 
/* Parallel SYSPLEX Environment (with a Coupling Facility) 



/•SECURITY 



IBM INTERNAL USE ONLY 



r TESTCASE NAME 



"SMQA01-9" 



r SOURCE FILE 



"SMQA01-9 SCRIPT A1" 



1 IMS/CQS, non-response mode trans 



/* LINE ITEM 

/*======:=====«========:====================:=================== 

SESSION=SESSION 

GLOBAL SetVars MoreHold DoReply DoWait TimeOut SwitchEC ATIRUN 
GLOBAL M VSPROC ATIVER TransVer MVSCmd CPCmd GoCP LeaveCP GetPRTAII 
GLOBAL ResetPorts DialPorts LogLine 
GLOBAL DoWaitSwap ATlSwap MVSCmdSwap 
^****************************************************^ 

I* Hpcs subroutine library 
/*- 



GLOBAL CONFIGURATION 
GLOBAL DATABASES 
GLOBAL CFNAMES1 
GLOBAL CFNAMES2 
GLOBAL OPTIONS 
GLOBAL DBDLIST 
GLOBAL ACBLIB 
GLOBAL HPCLIST 
GLOBAL HPCSTRCE 



r 
I* 
r 
r 
r 
r 
i* 
i* 
i* 



determines #ECs & #CFs & struct location 
determines databases to load and access 
CFNAMES card #1 used by HPC$VSPEC 
CFNAMES card #2 used by HPC$VSPEC 
IRLM 2.1 options (start_a_lrlm only) 
dbdlist at hpcs_entry 
acblib at hpcs_entry, psb will be gened to 
psblist at hpcs_entry 
TRACE value while in HPC$SUB 



-Scenario variables- 



*/ 
*/ 
/ 

*/ 
*/ 
*/ 
*/ 
*/ 
7 
*/ 
*/ 
7 
/ 
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GLOBAL HPCSLOG 
GLOBAL HPCSTRAN 

GLOBAL HPCSMPPS 

GLOBAL HPCSVER 

GLOBAL HYPER 
GLOBAL SHARER 
GLOBAL MODEL 
GLOBAL NUMPARTS 
GLOBAL RESLIB 
GLOBAL PARM1 
GLOBAL PARM2 
GLOBAL RESTART_VTAM 
GLOBAL VSPEC 
GLOBAL P ROC NAME 
GLOBAL CEC1_RESLIB 
GLOBAL CEC2_RESLIB 
GLOBAL CEC3_RESLIB 
GLOBAL Scenario2_log 
GLOBAL Scenario3_log 
GLOBAL Scenario4_log 
GLOBAL Scenario5_log 
GLOBAL Scenario6_log 
GLOBAL Scenario7_log 
GLOBAL Scenario8_log 
GLOBAL Scenario9_log 
GLOBAL ScenarioA_log 
GLOBAL ScenarioBJog 
GLOBAL ScenarioCJog 
GLOBAL ScenarioDJog 
GLOBAL ScenarioEJog 



/*: LOG causes Scenario logging to OLDS * 
/*: #trans to use in Scenario 1-350 * t 
I* Scenarios 4, 5 <176 else <351 * 
/* The number of Mpps to be used by * 
/* database type, 1 , 2 or 3 (def=3) 
/* ='Yes' verify environment, ^No', goto * 
/* check all messages processed loop * 
/* Yes-use VSAM Hyper space * 
/* Yes-start 2nd IMS 

/* Mvscmd model proc * 
/* Number of Partitions * 
/MMSreslib 

/* IMS parml * ( 
/*IMSparm2 

I* restart_vtam=yes/no for recycled vtam in entry * 
/* IMS VSPEC 
r IMS PROCNAME 
r CEC1 RESLIB 
I* CEC2 RESLIB 
/* CEC3 RESLIB 
r TMSCNTX Scenar 
I* TMSCNTX Scenar 
/* TMSCNTX Scenar 
/* TMSCNTX Scenar 
/* TMSCNTX Scenar 
r TMSCNTX Scenar 
r TMSCNTX Scenar 
I* TMSCNTX Scenar 
/* TMSCNTX Scenar 
I* TMSCNTX Scenar 
I* TMSCNTX Scenar 
I* TMSCNTX Scenar 
/* TMSCNTX Scenar 



io2 _Log 


*i 


io3 _Log 


*j 


io4 _Log 


*/ 


io5 _Log 


*j 


io6 _Log 


*i 


io7 „Log 


* j 


io8 _Log 


*/ 


io9 _Log 


*i 


ioA _Log 


*i 


ioB _Log 


* j 


ioC _Log 


*/ 


ioD_Log 


* j 


ioE _Log 


*/ 
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GLOBAL ScenarioFJog /* TMSCNTX ScenarioF_Log * t 

GLOBAL ScenarioGJog I* TMSCNTX ScenarioG_Log *, 

GLOBAL ScenarioHJog I* TMSCNTX ScenarioH_Log *, 

GLOBAL Scenario IJog /* TMSCNTX Scenario l_Log *, 

GLOBAL ScenarioJJog /* TMSCNTX ScenarioJ_Log * t 

GLOBAL ScenarioKJog T TMSCNTX ScenarioK_Log 

GLOBAL ScenarioLJog /* TMSCNTX ScenarioL_Log * 

GLOBAL CQSWTOR1 /* CQSWTOR1 

GLOBAL ARCDEFLT /* Archive member default *, 

GLOBAL NumofTerm_to_Use /* Num of Terminal to use for Scenario 1-10 * i 

GLOBAL ARM /* ARM policy * t 

GLOBAL ShareDB r Share DB YES-Global No-Local 

GLOBAL IMSLOCAL /* Local IMS? *, 

GLOBAL RSRMBR /* RSRMBR RSR Member 

GLOBAL DELSLDS /* DELSLDS Delete SLDS *, 

GLOBAL RLVL /* RLVL Readiness level 

GLOBAL HPCSFRCE /* routine in HPC$CMD to cleanup structures * 

/* — . ■ Called Commands- *, 

GLOBAL SwitchEC 

GLOBAL Hpcs_entry 

GLOBAL Hpcs_load_databases 

GLOBAL Hpcs_Start_IRLMs_21 

GLOBAL Start_IMS_on_all_systems 

GLOBAL Start_Tran_Scenario_1 

GLOBAL Stop_all_IMSs 

GLOBAL Hpcs_exit 

GLOBAL Hpcs_clear 

GLOBAL Hpcs_clear_all 

GLOBAL Hpcsjogit 
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/*====ss===s==============s=begin test case========================= */ 

I* >» EC1 <« */ 

CallSwitchEC "EC1" 

CONFIGURATION=30 

RESTART_VTAM="YES" 

ARCDEFLT="YES" 

ARM="NO" 

Call Hpcs_entry " " 

/* load the database(s) using sharelevel 3 7 
DATABASES=" DJK " 

ShareDB="YES" g10 

Call Hpcs_load_databases "3 " " 

Call Hpcs_Start_IRLMs_21 " " 
...... . * * * / 

I* Cold start IMS TM_DB region on ALL system(s) */ 

r CQS will be started and the default model is SMQ$C19X. */ 

/* The following IMS parms will be used if they are not set by the V 

/* user in IMSPARMS: */ 

/* IRLM=Y, VSPEC=HP, IMSID=IMSx 7 

I* SHAREDQ=%%x. DC=COx V 

/* note: x is 1 ,2, or 3 depending on which CEC V 
/* DLINM=HPC%CSA% (if DBDLIST or PSBLIST is specified in HPENTRY) 7 

CFNAMES1= 'CFNAMES, CFIRLM=LT01, CFVSAM=, CFOSAM=OSAMSESXI' 

CFNAMES2= ,, NO" 

DATABASES-' DJK " 

SHARER-'NO" 

HYPER="NO" 

IMSLOCAL="N" 

RESLIB="C" 

PROCNAME-'DEFAULT" 

PARM1="" 

PARM2=" " 

VSPEC="DEFAULT" 

MODEL-'DEFAULT" 

Call Start_IMS_on_all_systems 

Call Start_Tran_Scenario_1 "LEAVE=N0 NTRANS=1000 0N=ALL STARTAPL=ALL" 
Call Start_Tran_Scenario_1 "LEAVE=N0 NTRANS=500 ON=ALL STARTAPL=ALL" 

Call Stop_all_IMSs " " 
Call Hpcs_exit " " 

/*==========:=:=====s:======end test case=========================== */ 

EXIT 0 

INCLUDE "HPC$SUB" 

/*===================HPTC Translation summary==================== */ 

/* Number of lines written = ...176 */ 

r Number of +++ errors = 0 */ 

r====================End Translation summary==================== */ 



FIG. 9E 



Thomas J. Pavela 



15/40 



Q ENTER ^ 



PRESENT A VISUAL REPRESENTATION OF A LIBRARY 
OF EXECUTABLE CODE OBJECTS TO A USER, THE - 
LIBRARY COMPRISING A PLURALITY OF TEST OBJECT 
MEMBERS DEFINING A SET OF INSTRUCTIONS FOR 
PERFORMING A PORTION OF AN AUTOMATED TEST PROCEDURE 



I 

ACCEPT A SELECTION OF A FIRST TEST 
OBJECT IN THE VISUAL REPRESENTATION 



t 

PRESENT FIRST TEST OBJECT OPTIONS 
TO THE USER, THE FIRST TEST OBJECT 
OPTIONS DEFINING AT LEAST ONE TEST 
PARAMETER FOR PERFORMING A PORTION 
OF THE AUTOMATIC TEST PROCEDURE 



ACCEPT A SELECTION OF FIRST 
TEST OBJECT OPTIONS 




' ■) - 



TRANSLATE THE FIRST TEST OBJECT 

OPTIONS INTO AT LEAST ONE TAG 
AND AT LEAST ONE TAG PARAMETER 



STORING THE TAG AND THE TAG 
PARAMETER IN THE SOURCE FILE 



Q END ) 
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.* IMS Test Object Change History 
.* mm/doYyy - xxx 



.* HPSRLM2 Macro Start IRLM 2.1 on indicated CEC 

* a*************************************************************** 

.gs rules (vat) 

.aa HPSRLM2 HPSRLM2 

.dm HPSRLM2 on 

.gs attval ON as *onn 

.gs attval OPTIONS as "opt 

♦ l ill _ Mmmmmimm „„„ m „ m 

.if &e'&*onn = 0 
.th .go error 
.if&u'&*onn = ALL 
.th .go all 
,if &l'&*onn - 4 
th .go scec 
el .go mcec 

* n i , . , 

...all 

:II.Call Hpcs_Start_IRLMs_21 which will: 
:ol compact. 

ilt.Start IRLM 2.1 on all CECS with a lock structure of LT01 
.gocontl 



...scec 

.if&e'&*opt= 1 
th go popt 

:li.Call Hpcs_Start_an_IRLM_21 which will: 
:ol compact. 

:li.Start IRLM 2.1 on &u'&*onn with a lock structure of LT01 
.go contl 



...popt 

ili.Call Hpcs_Start_an_IRLM_21 which will: 
:ol compact. 

:li.Start IRLM 2.1 on &u'&*onn specifying the following options; 

&u'&*opt 

.go contl 
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...mcec 

:li.Call Hpcs_Start_anJRLM_21 which will: 
:ol compact. 

:li.Start IRLM 2.1 on &u'&*onn with a lock structure of LT01 

* Process Parts Used 

...contl 
:eol. 

.se fn = •IRLME2N' 

.se ft = PROCEDURE 

.hpchkpt 

.se *fn1 = 'IRLM 

.se*fn2 = 2.1 

.sefn = &*fn1.&*fn2 

.hpadfun 

.go done 



...error 

:li.+++ERROR in HPSRLM2 INVALID ON Parameter* 



...done 
.dm off 

* ********************************************************************** 
.* end of HPSRLM2 Macro 
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HPSRLM2: /*ON=(CECx,ALL) LOCKTAB=1 GROUP=g IRLMID=i V 
Call Parse_variables 
upper on 

if result>1 then return result 

If Totall-=on1+optlons1 then return 6 

If on 1=0 then return 7 

If optional -=0 & on='ALL' then return 1 8 

If optional -=0 & onn>1 then return 18 

data=eighty_blanks 

call PutJine_on_Stack 

Call Put line_on_stack 

If on='ALL' then do 

Data ='Call Hpcs_StartJRLMs_21 

Call Put_line_6n_stack 

end 

If onn>1 then do 
do j=1 to onn 

work_ec = substr(word(on,j),2,3) 
Call Check_current_ec 
Data -'Call Hpcs_Start_anJRLM_2r """ 
Call Put_line_on_stack 
end 
end 

If onn=1 & on-='ALL' then do 
work_ec = substr(on,2,3) 
Call Check_current_ec 
If options1>0 then do 
Work__String=options 

Call Remove_High_Values ( 
options = Work_String 
Data = , OPTIONS= , |r , ||options|r" 
Call Put_line_on_stack 
end 

Data ="Call Hpcs_Start_an_IRLM_21 • " ,,M 
Call PutJine_on_stack 
end 

Call Add_Library 'HPC$SUB' 
return 
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r Routine Name: Hpcs_startjrlms_21 

/* Called by: 

/* Parameters passed: 

r Routines called: 

/* Routine Function: 



&START&7 



7 



7 



7 



&END&**7 



Hpcs_starMrlms_21: 

Call Save_callers_environment 

Call Hpcsjogit 'Hpcs_startjrlms_21 started' 

If Options-=" & Options-='OPTIONS' then do 

Call Hpcsjogit 'Options may not be specified when 1 

Call Hpcsjogit 'starting "all" Irlms 2.1* 

goto HpcsJest_case_aborted 
end 

Irlm^rocess-Start' 

Call Process_alMrlms 

Call Restore_callers_environment 

Return 0 

/* Routine Name: Process_allJrlms 7 
r Called by: 7 
r Parameters passed: 7 
r Routines called: 7 
r Routine Function: 7 



Process_allJrlms: 
ec=1 

do until forever=true 

CMS 'GLOBALV SELECT MULTIEC STACK EC'ec 
PullNewEC 

if IndexC 'Sessions' 7. 'NewEC ')=0 or, 
eoMaxcec or, 
NewEC=" then do 
Goto Process_allJrlms_exit 
end 

CMS 'GLOBALV SELECT DOAUTO SET SESSION' NewEC 

CMS 'GLOBALV SELECT DOAUTO SET ECID' NewEC 

Session=NewEC 

Call Process_an Jrlm 

ec=ec+1 




end 
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goto Process_allJrlms_exit 
Process_allJrlms_exit: 
return 



f* Routine Name: Process_anJrlm 

/* Called by: 

/* Parameters passed: 

/* Routines called: 

/* Routine Function: 

Process an Irlm: 



&START&7 



*/ 



&END&***/ 



If IrlmjDrocess-Starf then do 
Call Hpcs_clear_.aH 
Call Getjrlm_21_Options 
Send "S IRLME2N,'||lrIm_21 JDptions 
Wait#1 

Call Hpcsjogit 'Starting IRLME2N on '||NewEC 
Call Hpcsjogit lrlm_21 JDptions 
hpcs_pnerror=onerror 
onerror=False 

CALL DOWAIT '5 1 IRLM INITIALIZATION COMPLETE* 
/* Wait #9:00 Scrhas('RLM INITIALIZATION COMPLETE 1 ) 
Wait_rc=rc 
onerror=hpcsonerror 
If Wait_rc=0 then do 

hpcs_onerror=onerror 

onerror=False 

Wait #10 ScrhasCABEND=S000 U2018*) 

Wait_rc=rc 

onerror=hpcs_onerror 

If Wait_rc=1 then do 

Call Hpcsjogit 'Start Irlm issued with active IRLM'V 

goto HpcsJest_case_aborted 
end 

Call Hpcsjogit f lrlm failed to initialize, reason unknown 1 
goto HpcsJest_case_aborted 



If lrlm_process-Cancer | lrlm_process= , Stop , then do 
Call Hpcs_clear_all 
Send 'D A,L'||ENTER 



end 



Goto Process an Irlm Exit 



end 
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Wajt#10Scrhas('IEE114r) 

hpcs_onerror=onerror 

onerror=False 

r look for RLM after IEE1 141 message */ 

y******«********* *»*******************************************************»***y 

Wait #0 Scrhas('RLM' (HITROW +1:1) (MAXROW : MAXCOL)) 
Wait rc=rc 
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